home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Grapevine 20
/
Grapevine 20 (Disk 1 of 2).adf
/
Files
/
arexxexamps.lha
/
ARTICLES
/
AREXX_EXAMPLES
/
Example17.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1980-01-07
|
433b
|
15 lines
/* Example 17 */
Say PrintLine("*", 20) /* PrintLine( CharString, NoOfChars ) */
Exit
PrintLine: /* This Is A Function */
character = arg(1) /* Get Character To Print */
number = arg(2) /* Get Number Of Chars */
line = "" /* Initialise Line */
Do Number
line = line || Character /* Make Line Of What Ever Char Is */
End
Return line